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ABSTRACT 


WLSORT sorts CS-1 weekly log records located on magnetic tape to enable 


the new weekly log processor program C5-1-WLSR1, (TN 5-72-15) to interpret 


all data in terms of classes tather than groups. 
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WEEKLY LOG RECORD SORT (WLSORT) 


& 1.0 - PROGRAM IDENTIFICATION 


* 
WLSORT 
2.0 - OBJECTIVE 


Weekly Log records written on magnetic tape in order of district, 
school, teacher, class, group, month, and day, must be re-sorted 
in order of district, school, teacher, class, month, day, and 
group (i.e., shift of the last three fields only) to enable the 
program CS-1-WLSR1 to interpret all data in terms of classes 
rather than groups. 


3.0 - PROGRAM DESCRIPTION 
3.1 - Program Logic 


WLSORT reads one weekly log record at a time from magnetic 
tape, calculates its record identification value (i.e., the 
value that will be sorted on) according to the month, day, | 
and group read for each record, and assigns a corresponding 
index value (i.e., the value that will point to that record 
for output). according to the order in which each record is 
read. Exit from this loop is triggered by either (1) a 


& device error, (2) a transmission abort, (3) a class containing 


more than 240 records, (4) an end-of-file read on the input 
tape, or (5) a record containing a new class identification 
number. Cases 4 and 5 are considered to be the normal exits, 
indicating that all records for a class have been properly 
read and are waiting to be sorted. After exiting the read-a- 
record loop, and before calling SUBROUTINE SORT, the record 
containing the new class identification number is stored and 
labeled as the first record of the next class (whose following 
records are yet to be read). Ignoring this latest record 
(which belongs to the next class) and supplied with the last 
class' array of record ID's and corresponding index values, 
SUBROUTINE SORT rearranges the record ID's in ascending order 
(using a bubble sort) and concurrently moves their corresponding 
index values. 


The first value returned in the rearranged index array then |} 
directs the output loop to write onto tape, the record with 
the smallest record ID; the second index value triggers 
writing of the record with the next smallest record ID, 

and so on until all records for that class have been 

written. If a class once sorted on an output tape is 

not the last class on the input tape, the program returns 

to continue reading the next class. The program 


* 
ge WLSORT is an adaptation of CS-1-Weekly Log Sort (IN 5-71-15). 
NS, 


terminates once the read-a-class/sort-a-class cycle is 
completed for all classes. 


Variables 


All variables in this program are of integer type. The 
value of the subscript KOUNT corresponds to a selected 
record within the current class and all arrays subscripted 
by KOUNT are dimensioned to 240. 


TALPHA (KOUNT, L), INTEGER ALPHA. This array (dimension 
240 by 40) contains all the ALPHA data read from 
one weekly log record. 

ICLASS (KOUNT), INTEGER CLASS. This two-digit value 
identifies the class to which a given weekly log 
record belongs. 

IDAY (KOUNT), INTEGER DAY. This two-digit value 
identifies the day y (range 1 to 31) on wnaeH the 
weekly log sheet was dated. 

IDST (KOUNT), INTEGER DISTRICT, SCHOOL, AND TEACHER. 

This six-digit value identifies the district, school, 
and teacher to which a particular log record belongs. 

IGROUP (KOUNT), INTEGER GROUP. This single-digit value 
identifies the group to which a particular weekly 
log record belongs. 

IMDG (KOUNT), INTEGER MONTH, DAY, AND GROUP. This array 
of record identification values is computed for each 
record by concatenating the values IMONTH, IDAY, and 
IGROUP, e.g., IMONTH = 10, IDAY = 30, IGROUP = 2 
yields IMDG = 10302. Once computed for each record 
within a class, these record ID's are passed to 
SUBROUTINE SORT and rearranged in ascending order. 

IMONTH (KOUNT), INTEGER MONTH. This two-digit value 
identifies the month h (July = 1, August =2... 

June = 12) in which data on a given sheet was 
recorded. 

INIT, INITIAL VALUE. As the initial value of the main 
read loop INIT is set to 1 for the first record of 
the first class read. For subsequent classes, however, 
INIT is set to 2 to account for the new class record 
which marked the end of the oldiclass' read loop 
(i.e., that record which waits in array position 1 
of the new class array about to be read). 

KEY (KOUNT), KEY ARRAY. This index array is stored with 
each counter value of the read loop's DO variable 
KOUNT, i.e., integers 1, 2, 3, . . . NRECS, originally 
in that order. SUBROUTINE SORT then rearranges this 
array by allowing each of the array values to follow 
their corresponding values of the record ID array 


(IMDG) as the IMDG array is sorted. The first value 
in the rearranged index array KEY then directs the 
output loop to write the record with the smallest 
IMDG index value, while the second KEY value triggers 
writing of the record with the next smallest IMDG 
index value, and so on. 

KOUNT, KOUNTER VALUE. This DO variable for the read loop 
counts the records being read for a class. In addition 
to serving as a subscript for each record, each KOUNT 
value is immediately stored into the KEY array as 
described in the "KEY (KOUNT)" definition above. 

KOUNT2, 2nd KOUNTER VALUE. To avoid alteration of a DO 
variable out8ide its respective loop, KOUNT is renamed 
KOUNT2 upon exit of the read loop in order to compute 
LESONE. LESONé is the argument passed to SUBROUTINE 
SORT, which indicates the total number of records to 
be sorted. 

LESONE, LESS ONE. This value equals the number of records 
read, minus one. By purposely ignoring the last 
record read, i.e., the record with the discrepant 
class number, this subtraction yields the exact 
count of records to be sorted for the preceding class 
and is thereby used as the third argument passed to 
SUBROUTINE SORT. . 

LOGREC(L), WEEKLY LOG-RECORD. As the array containing all 
alpha and numeric data on a weekly log record, this 
serves as a major argument to be passed to the read/ 
write subroutine NTRAN. 

, STATUS VALUE. This value indicates the status of 
NTRAN, The LSTAT status codes’ are as follows for 
read and write operations: 


-l1 indicates transmission not complete 

-2 indicates end-of-tape (indicates end-of-file in 
write operations) 

-3 indicates device error 

-4 indicates transmission aborted 


NO MORE, NO MORE. This flag is either set to 1 or 0 to 
indicate whether "no more" classes remain to be sorted. 

NO SUB, Number of the SUBscript. This subscript value 
identifies the weekly log record currently being 
printed. Since the compiler will not permit the use 
of nested subscripts e.g., IMONTH(KEY(J)), the current 
KEY(J) value is restored as NOSUB, which in turn is 
used as the subscript for writing the elements of 
the newly sorted record. 


4.0 - SUBROUTINES AND FUNCTIONS 


4.1 - SUBROUTINE SORT (SORTON, FOLLOW, NRECS) sorts the array SORTON 
(using an ascending bubble sort) while rearranging the array 
FOLLOW, In turn FOLLOW is employed to fetch and write records 
in their sorted order. aia it 


Argument Description 


FOLLOW (NREC), FOLLOW the SORTON elements. This integer 
array enters the subroutine, containing numbers 
1, 2, 3, . . . NRECS, in that order, As out-of- 
order record ID's are shifted into order, their 

= corresponding elements in the FOLLOW array are 

also shifted, FOLLOW is finally feturned with 
its elements rearranged, and is used by the main 
program to fetch and write the records in their 
new sorted order. F 

SORTON(NREC), SORT ON this array. The record identifi- 
cation numbers within this array are examined 
with respect to their order (i.e., relative to 
their immediate neighbors) within this-array so 
as to trigger sort operations necessary to 
rearrange them in ascending order. 

NRECS, NUMBER OF RECORDS. As the third argument in 
the subroutine list, this integer value indicates 
the number of record ID's to be sorted. 


4,2 - SUBROUTINE NTRAN (UNIT, READ/WRITE CODE, BLOCK LENGTH, BLOCK 
NAME, STATUS VALUE). This library routine acts in conjunction 
with subroutines ENCODE and DECODE to read and write formatted 
records with lengths greater than those handled by the standard 
FORTRAN READ/WRITE statements. 


5.0 - DATA SPECIFICATIONS 
5.1 = Input Formats 


Each record has been preprocessed from the raw weekly log 
scanner data, and appears on the input tape it: order of 
district, school, teacher, class, group, month, and day. 

The record format then corresponds to the optical scan sheet 
format (see Appendix A), although irrelevant blanks have 

been deleted. As the following read sequence shows, each 
record contains: 1) IALPHA, the array of 238 alpha character 
responses; 2) IDST, the 6 digit integer identifying the 
district, school, and teacher; 3) ICLASS, the 2 digit integer 
identifying the class; 4) IGROUP, the 1 digit integer identifying 
the group; 5) IMONTH and IDAY, thew2 digit integers identifying 
the month and day respectively; and 6) IUNIT, the 10 digit 


200 


6.0 - 


integer indicating the units to which the record pertains. 
These values are read in according to the following format: 


READ (31,200) (IALPHA(KOUNT,L),L=1,40), IDST(KOUNT), 
of ICLASS(KOUNT) , (GROUP(KOUNT) , IMONTH(KOUNT) , IDAY(KOUNT), 
+ IUNIT (KOUNT) 

FORMAT (22A6/17A6,A4,16,12,11,12,12,110, 3X)" 


An example of records conforming to this format appears in 
Appendix B.”° 


5.2 = Output Formats 


Each record will be written on the output tape in order of 
district, school, teacher, class,-month, day, and group. 
The contents of each record will be rearranged as IGROUP 
is shifted as indicated below: 


_ WRITE (31,500) (IALPHA(NOSUB ,K) ,K=1,40), IDST(NOSUB) , 
+ ICLASS (NOSUB) , IMONTH(NOSUB) , IDAY (NOSUB) , IGROUP(NOSUB) , 
+ IUNIT (NOSUB) 
FORMAT (22A6/17A6,A4,16,12,12,12,11,110,3X) 


An example of records conforming to this format appears in 
Appendix C. 


PROGRAM CONSTRAINTS AND LIMITATIONS 


6.1 x Programming Language 
Univac 1108 FORTRAN V 
6.2 - Vendor 
‘University Computing Company 
6.3 = Storage Requirements 
7210 ectnt words 
6.4 - Hardware Configuration 


Univac 1108 (EXEC 2), card reader, 2 magnetic tape units 
and printer 


6.5 - Program Parameters 


Number of records per class should not exceed 240 unless 
array dimensions and loop limits are expanded beforehand. 


6.6 - Error Messages 


If the number of records per class exceeds 240, the program 
prints the following message before terminating all processing: 
ERROR . . . NUMBER OF RECORDS FOR THIS CLASS EXCEEDS DO 

LOOP LIMIT OF 240. 


If an sod -GE-tape marker is encountered in the write sequence, 
the program prints the following message before terminating 
all processing: 

WRITE ERROR I.E., . . 

ERRORS IN TAPE OR TRANSMISSION ON RECORD ID NUMBER (DSTCGMD) = 
01 02 010114 1 (i.e., the identification number of the 
record in question) 


7.0 = OPERATING INSTRUCTIONS x 


At UCC, the program was run with the following control card ‘configura- 
tion: 


@ RUN,W FOOTE,LS3512,3,150 

@ MSG DELIVER JOB TO SWRL 

@RAKEX ASG H=1343 RINGIN 

@RAKEX ASG F=1035 NORING 

@ FOR DECK1,DECK1 i 


Main Program (see listing, section 9.0) 
@ FOR DECK2,DECK2 F ay 
SUBROUTINE SORT 
@ XQT DECK1 
@ XQT TUTIL (TUTIL is a write-to-tape routine, local to UCC) 


REWIND H 
PRINT H 20 RECS 


REWINT F 
REWINT H 


ALU = PROG HART ~~ 
G SVE 
a = a a = a el 


PROGRAMMER: __ _Tom Foote 


‘Procaam 1D: _wtsort 


SET INITIAL 
VALUE FOR 


TRAVELED 
THROUGH ONCE 
FOR EACH 

RECORD 


READ LOOP 
el 


READ LOOP. 
STORE 'Do' 
VARIABLE IN- 


ABNORMAL g 
Loop * 


WRITE INPUT 
FRROR 
MESSAGE 


IN ITS NEW 
SORTED ORDER 


W. 
LAT THE YES 
LAST CLASS. 

QN TAPE) 


END 


BRON EAST REC 
ORD READ TO 
RERETEDKSS 96 
BE_READ 


RELABEL ID 
NO, OF LAST 
RECORD READ 


SORTED ON FOR 


1D NUMBER TO 
"OLD" 


9.0 - PROGRAM LISTING 


Cee ee 4 WLSORT SORTS WEEKLY LOG RECORDS IN ORDER OF DISTRICT» SCHOOL» 
Cr+ et +> TEACHER® CLASS ®MONTHse DAYse AND GROUP. tit tote ether eee eelens 
COMMON LOGREC(44)» IOST( 240) e ICLAS'.( 241)) » ’ 
+t IGROUP( 240) » IMONTH(24U) » IDAY (240) » LUNIT( 241) » 
+IMDG(240)) » LALPHA( 2409 4) » KEY (240) 


NOMOREZ=0 
INIT=1 
-C THE FOLLOWING LOOP READS ONE WEEKLY LOG RECORD AT A TIME, 
C EXIT FROM THE READ LOOP IS CAUSED BY 1)DEVICE FRRORe 
C 2) TRANSMISSION ABORT»s 3) NUMBER OF RECORDS/CLAGS GREATER 
C THAN 240+ 4)EOF READ ON INPUT TAPE» OR 5) ENCOUNTER OF LOG 
C RECORD BELONGING TO A DISCREPANT ID NUMBER(USUALLY A NEw CLASS). 
C CASES 4 AND 5 ARE CONSIDERED TO BE THE NORMAL EXITS. 
40 DO 99 KOUNT=INIT? 240 
KOUNT2 =KOUNT 
KEY-¢KOUNT) =KOUNT . ; 
CALL NTRAN(4:2044eLOGRECeLSTAT) 
- 190 IF(LSTAT.EQ.-1) GO TO 100 
Cc EXIT CASE 4+ EOF READ 


IF (LSTAT.EQG.=2) GO TO* 104 
C EXIT CASES 1 OR 2+ DEVICE ERROR OR TRANSMISSION AHORT 
IF(LSTAT.EQ.-3.0ReLSTAT EQ. 4) GO TO 12 
CALL DECODE(LOGREC»132) | 
READ(31»9200) (ITALPHA(KOUNTe L) »L=16 40)» LUST( KOUNT) » 


+ ICLASS (KOUNT ) » IGROUP ( KOUNT) » IMONTH( KOUNT) » IDAY( KOUNT) » 
+ IUNIT (KOUNT) 
2n0 FORMAT (22 A6/17A68 A4e I60 12011 120120110 3X) 


IGROUP ( KOUNT ) =I ABS (IGROUP( KOUNT ) ) 
WRITE(60205) IDS{( KOUNT) 6 ICLASS( KOUNT) » IGROUP( KOUNT) » 
+ IMONTH( KOUNT) » IDAY ( OUNT) » IUNIT (KOUNT) 


205 FORMAT(ITBe 14s [2014s Tbe 4X» 110) 
' TF(KOUNT.EQ.1) GO TO 210 ; 
Cc IF THIS IS THE INITIAL PASS THROUGH THE LOOP FOR THIS CLAS,» 
Cc. BYPASS THIS CHECK FOR A CHANGE IN CLASS. 


“IF (ICLASS(KOUNT) «NE. TOLOCL. OR. IOST(KOUNT) «NE. IOLDST) 
+ GO TO 400 


aS COMBINE THE MONTH DAYs AND GROUP VALUES READ FOR THIS CLAS’, 
€ RECORD INTO THE MORE READILY SORTABLE INOEX VALUE IMDG 
210 IMOG(KOUNT) SIMONTH( KOUNT) € 1000+ IDAY (KOUNT) €10+IGROUP( KOUNT) 


IOLOCL=ICLASS( KOUNT) 
IOLOST=I0ST( KOUNT) 
ga CONTINUE | 
C EXIT-CASE 3+ NUMBER OF RECORDS/CLASS GREATER THAN 24) 
WRITE( 6» 220) 
220 FORMAT(* ERRORs..NO.OF RECORDS FOR THIS CLASS EXCEEDS DO 
+ LOOP LIMIT OF 240") 


STOP 
C PREPARE TO SORT ALL RECORDS WITHIN THE PRECEEDING CLASS+e NEGLECT LG 
Cc THE RECORD LAST READ ° 
aot LESONE =KOUNT2-1 ‘ 
CALL. GORTCIMDG? KEY LFSONE) 


C BY LOOKING AT THE SCRAMBLED KEY ARRAY» THE FOLLOWING LOOP 
& - C FETCHES AND WRITES ONE WEEKLY LOG RECORD AT A TIME, IN 
: C ITS NEW SORTED ORDER. 
DO 300 J=1eLESONE 
NOSUB=KEY ( J) 
WRITE(6» 206) IDST(NOSUB) » ICLASS(NOSUB) » 
: IMONTH¢NOSUB) » IDAY ( NOSUB) » IGROUP (NOSUB) » IUNIT( NOSUB) » 
+ . IMOG(U) KEY (U) 
206 — FORMAT( 18s I4e 14s 140 1401100 18s 16) ‘ 
CALL ENCODE(LOGREC» 132) 
WRITE(310500):( TALPHA(NOSUBPK) »K21040)» IDST(NOSUB)» 
+ ICLASS( NOSUB) » IMONTH( NOSUB) » IDAY( NOSUB) » IGROUP( NOSUB) » 
+ IUNIT(NOSUB) 


500 FORMAT ( 22A6/17A6e Ade 160 120 120 T2115 1100 3X) 
CALL NTRAN( 89 1° 44+LOGREC+LSTAT) 
310 IF(LSTAT.EQ.-1) GOTO 310 


Cc GO TO WRITE THE LSTAT WRITE ERRORS 
. IF(LSTAT.EQs-2) GOTO 610 
IF(LSTAT.LE.-3) GOTO 90 
300 CONT INUE 
IF THIS WAS THE LAST CLASS ON THE TAPE, EXIT THE PROGRAM, 
OTHERWISEs STORE ALL DATA FROM THE RECORD LAST READ(I.E. - 
THE FIRST RECORD OF THE NEW CLASS) INTO THE NUMBER ONE POSITION 
OF THE NEXT BATCH TO BE READ AND SORTED. 
IF (NOMORE.EQ.1) GOTO 9 
00 510 K=1»40 
é 510 IALPHA(1»K) =IALPHA( KOUNT29K) 
IDST(1) =10ST( KOUNT2) \ 
ICLASS(1) =ICLASS (KOUNT2) 
IMONTH(1) SIMONTH(KOUNT2) = ~ 
IDAY(1) 2IDAY ( KOUNT2) 
IGROUP (1) SIGROUP (KOUNT 2). 
IUNIT(1) SIUNIT (KOUNT2) 
Figett ihur a) e20006 104" Kouur2 410+ roRoUR (KoUNT) 
KEY(1) 21° 
IOLOST2I0ST(1) 
IOLOCL=ICLASS(1) 
INIT=2 
GO TO 40 
101 WRITE( 69111) 
111 FORMAT('1"%,20Xe"END OF FILE!) 
NOMORE=1 
GO TO 400 
610 WRITE( 6» 620) 
620 FORMAT(* END OF TAPE ENCOUNTERED IN WRITE SEQUENCE’) 
GOTO 9 
90 WRITE( 6091) 
91 FORMAT(* WRITE ERROR IeEeeoee’) 
102 WRITE( 69112) IOST(KOUNT2=1) » IOLDCL+ IGROUP(KOUNT2=1) + 
+ IMONTH( KOUNT2<1) » IDAY (KOUNT2=1) p LSTAT 
112 FORMAT(* ERRORS IN TAPE OR TRANSMISSION ON RECORD ID “NUMBER 
& +(DSTCGMD) =" I6e12e Tie l2el2o "LSTAT="s I4) 


QaA|NNA 


-9 END FILE 8 
REWIND 8 
STOP 
END 


Guw’ last element in the last comparison compared with the element 


\ SUBROUTINE, SORT * 
/ - 


PROGRAM IDENTIFICATIQN, 


SUBROUTINE SORT (SORTON, FOLLOW, _NRECS) 
\ 

- OBJECTIVE 
Sort dn array of record ID numbers into ascending order and 
concurrently move their corresponding index values (initially = 
in order of 1, 2, . . . NRECS). 


‘ PROGRAM DESCRIPTION | 


3.1 - Program Logic 


SUBROUTINE SORT is passed, 1) SORTON, an array of unsorted 
oN record J) numbers, 2) FOLLOW, an index array containing 
numbers (1, 2, . . . NRECS) corresponding to each record 
ID number, and 3) NRECS, the number of elements contained 
in each of those arrays. In the rare event that only one- 
index, value is passed, SUBROUTINE SORT bypasses any sorting / 
\ , activity and returns to the main program. Otherwise, an 
, ascending bubble sort is applied, The outer loop is entered 
\ and its»DO variable is set,to indicate the first of a 
\ \complete pass through record ID array SORTON and index array 
FOLLOW. Similarly, the inner loop is entered and its DO 
‘variable is.set to indicate the first comparison made between 
two elements within the record ID array: If those two 
elements are out of order with respect to one another, 
each is shifted to the other's position, as are their 
corresponding FOLLOW values. Comparisons continue with ‘the 


succeeding it until all elements within the array have been 
compared with their neighbors. Should all comparisons within 
. a pass yield no out-of-orders, both arrays are returned to 
Ne the main program in their new sorted order. Otherwise, the 
i outer loop\is again entered to begin another complete pass 
, through the arrays. : \ 
\ ss 
3.2 - Variables ae 


All variables are of integer type 


FOLLOW(NRECS) FOLLOW the SORTON elements. This array 
enters the subroutine, containing numbers l, 2, 3, . . 
NRECS , that order. As out-of-order record ID's 
are~stir’ed into order, their corresponding elements 
in the FOLLOW array are also shifted. FOLLOW is 


eh 


. finally returned with its elements rearranged, and 
is used by thé main program to fetch and write the 
records in their new, sorted order. 

‘ FTEMP, FOLLOW TEMPORARY. This value serves as the 
temporary storage location for an element within 
the FOLLOW array during the operation in which that 
element is shifted in position with a neighboring 
element. 


KMPARE, KOMPARE. This DO variable of the comparison loop 
appears rs in the arithmetic expression for the bubeeTiot 


of the two array elements being compared. 
MORE, MORE PASSES. This flag contains a value of either 
1 or 0 to indicate whether more passes through the 
; record ID array are required to finish the sort. 
= NPASS, NUMBER OF THE PASS. This DO variable indicates 
the ‘number of times the record ID array has been 
completely stepped through. If only one record ID 
is passed to SUBROUTINE SORT, NPASS is set to zero, 
sort operations are bypassed, and the single record 


ID value an@ corresponding FOLLOW value, are immediately 


returned to the main program. 

NRECS, NUMBER OF RECORDS. As the third argument in the 
subroutine list, this value indicates the number of 
record ID's to be sorted. 


‘SORTON(NRECS), SORT ON this array. The record identifi- ° 


cation numbers within this array are examined with 
respect to their order (i.e., relative to their 
immediate neighbors) within this array so as to 
trigger sort operations necessary to rearrange them 
in ascending order. 

STEMP, SORTON TEMPORARY. STEMP serves as the temporary 
atorage location for an element within the SORTON 
array during the operation in which that element is 
shifted in position \'th a neighboring element. 


4.0 + SUBROUTINES AND FUNCTIONS 
None 
5.0 - DATA SPECIFICATIONS 
Not Applicable ‘ 
6.0 - PROGRAM CONSTRAINTS AND LIMITATIONS 
6.1 ~ Programming Language | | 


Univac 1108 FORTRAN V 


Vendor 


University Computing Company 


Storage Requirements 

176 octal words 

Hardware Configuration 

Not applicable 

Program Parameters 

The number of elements contained in either array should 
not exceed 240 unless array dimensions and loop limits 
are expanded beforehand, 

Error ‘Messages 

None 


7.0 = OPERATING INSTRUCTIONS 


Executed under main program control. 


8 0 = PROGRAM FLOWCHART 


G SNS 


FrowcuHart Layout 


PROGRAMMER: Tom Poote = 
Procram. LD: Subroutine Sort 


RA 
& |THE 
> 


TO BE SORTED 


SET PASS 
COUNTER TO 
ZERO 


BEGIN THE 

NEXT PASS 

THROUGH THE 
ARRAYS 


SET SWITCH 
‘© INDICATE NO} 


MORE SORTING 
TO BE DONE 


THE ENTIRE | 
INDEX ARRAY | 
Is ' 
COMPLETE! 


OMPART 
SUCCESSIVE 
PAIRS OF 

INDICES 


OUT NO 


0 
INDICATE MORE 
SORTING TO 
BE DONE 


SWITCH 
INDEX NUMBERS 
JUST COMPARED) 


SWITCH 
CORRESPONDING 
KEY VALUES 


CONTINUE ro 


NO 
SORTING 
0 D0? 


CONTINUE 


KEV 


OUT 


EVAies 


9.0 - PROGRAM LISTING 


THF FOULOVHIG SUBROUTINE SORTS THE ARRAY “SORTONs "(SMALLEST 
VALIE FIRST GREATEST LAST WHILE CORRESPONDINGLY REARRANGING THE 
KEY ARRAY "FOLLOW." NRECS IS THE TOTAL NUMHER OF ELEMENTS TO 38E 
SORTED. | : 
SUSROUTINE SORT(SORTON» FOLLOWs NRECS) 
INTEGER SORTON*+FOLLOWs STEMP»s FTEMP 
DIMENSTON SORTON( 240) eFOLLOW( 240) 
IF ONLY ONE RECORD IS PASSED TO THE SUBROUTINE, SET 
MPASS EQUAL TO ZERO» WRITE "NPASS=0"» AND RETRURN 
TO THE MAIN PROGRAM, 
TF(MRECS.GT.1)GOTO 19 
NPAS',=0 
GO TO 2 
10 LESONESNRECS=1 
NPASS IS INCREMENTED EACH TIME A PASS THROUGH THE ENTIRE 
"GORTON" ARRAY IS TO BE MADE, 
DO 21 NPASS=1eNRECS 
TURN THE "MORE" SwITCH OFF TO INDICATE THAT NO MORE PASSES 
ARE REQUIRED TO FINISH THE SORT. 
MORE=0 
KMPARE IS INCREMENTED EACH TIME A NEW ELEMENT WITHIN THE 
"SORTON" ARRAY IS TO BE COMPARED WITH THE ELEMENT IMMEDIATELY 
PRECEEDING IT. 
DO 20 KMPARE=1+rLESONE 
IF (SORTON(NRECS-KMPARE+ 1) «GE. SORTON(NRECS*KMPARE)) GO TO 20) 
TURN THE "MORE" SWITCH ON TO INDICATE THAT MORE PASSE5 
ARE REQUIRED TO FINISH THE SORT. 
MORE =1 
SWITCH THE TwO "SORTON" VALUES THAT WERE OUT OF ORDER. 
STEMP =SORTON (NRECS =KMPARE) 
SORTON (NRECS=KMP ARE) =SORTON(NRECS=KMPARE+ 1) 
SORTON(NRECS=KMPARE+1) =STEMP | 
SWITCH THEIR CORRESPONDING "FOLLOW" VALUES. | 
FTEMP =FOLLOw ( NRECS+KMP ARE) ‘ | 
FOLLOW( NRECS=KMPARE) =FOLLOW (NRECS+1<KMPARE) 
FOLLOw (NRECS+1=KMPARE) =FTEMP | 
20 CONTINUE 
IF MORE PASSES ARE REQUIRED TO FINISH THE SORT» PAS, THROUGH 
THE ENTIRE "SORTON" ARRAY ONCE AGAIN, OTHERWISE RETURN 
TO THE MAIN PROGRAM, ; i 
IF(MORE.EQ.1) GO TO 21 i | 
GO TO 22 4 
21 CONTINUE \ : 
WRITE THE NUMBER OF PASSES IT REQUIRED TO COMHLETE THIS SORT. | 
22 WRITE(6930) NPASS 
30 FORMAT(* NPASS="¢1I5) ; | ; 
RETURN ! 
ENO | 
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APPENDIX A 
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‘ewan 8 322 Dae tse a Lee be eT eo et BAe oa ge ae ian oe Nae gos eb 
a: ame Me a ea a sD ee 40% 
ones =f =H - RH STH ON Ce ee ee Oe sao ar RS a ee a ae 
» [won| PE 32 oe 7 bp wi seh Yorid" of "Field" 5. RRS Pe py eee epee 
oN 8 ! 2 3 abe | Field numbets correspond to subscripts of the IALPHA array. 
@--- 91234562789 —|The grid-marked within each field is scanner. coded to an “‘° 
sinha ghargeten  (venally Shree ert coded to "A," second grid 
eanesse tt B," and_so on), which_is in turn_stored by the WLSORT progr 
Sree ee es oe eee EO CE: ALPHA abr ay Ko oe Fe ee ee ee ee Fee er Se 
____ISTHE Lass GRoureO YEb2 NO IF YES, MARK Grou NUMUER FOR THis suey TBR 
lie aad ap ee ante nies: | OS IE Teucricay Time] 
[T2998 ES IG RAEHE | Fo AZow./ TOR Heda: 
Po gH te -SO W h Hot YR soe HOH tb tts) fog Stee 
Pro (a es eta ee aa g ip doy g sar |S bean Be act 
TOS 48 8 o0° o tortiiade | 6 0 Socpy Sob 8 Dob ge oe 
pra Be ae es * We le fi-s ee Bar aes eit E foch. 
mecha SPE ES SIs CUE | Beek oe She ee ee 
425 45 6 J63 9 porvizinis | B fo ZoLg7 sogo~a| 8 1b 2b stpp svad 
ltd i i a ed la. : ey ee ee hh it. 


_[-[-tuesoay [| weonespay | | tHursoay_ FRIDAY | 

6 52] Deity Doity 31 sity BE) pally | 
= = | Assessment} Assessment =p | Assessynent = Asessmont 

5 Bad} Passed Pased 1a? Passed aie coal 
2 } ah — s i.e inal aS ny A a. ar, i a! 

F | Bi f Rab [pa Bah | es 2 Seat | Bef dar 
Fok fT NOR 1 oA AA | eS GOAL | het Blt 

é LYN 353 a i 55 3 Gia 357 $ §gea 
J ply 6d tee H- 42 Morte: Bm ae, > 

BRT RET 83 Le Age 

- ‘aN Se A 0 ML a i 

5 pif e239 ¥ Bs. 185 Spo) | 87 f Bay 

& pale oa Baa [PS 4 26 | 97 oe 

O1 ¥ 102 | 1039 “104: | 405 +106." | 107 ¥108:a | 

[ELL y 1 | 9 Y1daa | BAS Y116"s | Dian 

(21 y 122.) [423 yidhie | 125 y1aeia || 127128. 

131 ¥ 132° 133 y1d4ia| | 135 1136-4) | 137 1385 | 

Wat Yad? M49 pagers | | T45 yigesn [| tar y14ees | 

. 151 y 452: 153 y164ia | 155 y156,4 {57 ees 

Palo 


60,1 , f61 7 162) ites 65 y166ia 
Linch amet |b een hips lager 
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16232) , 233° 
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UNIT _TINSTRUCTIONAL TIME [CLERICAL TIME | 
Li LOUDER FustOupe Top Mest 
z SERB EVER BPs Does gee I As 
= Ab ee TRV I. 2 eo ew oe Pee e ee a 
oO G5 ABS, oP es. BAP 182 ge spyeel Bip. j Pe af: 
2 48 Sl2la 2 Ue | G12 092 ype rl Sie g9d 30d | 
- 
g stent ine Ree re Meet e eS Va tet ee Ae t. 
= “outcome: | outcome | outcome 3 [outcome 4 
® Cecil OTHER |e eNg| OTHER jerucicc | OTHER | erutyely| OTHER | 
ws wonosy | gag’ 195 196 | 97: | Ei98 | £1997, Geod | C201 
a y LTeetbay | §203, :204. 205 206, | §207, 208: | £209 | S2to.. ; Gaiz | 
ee 2am | Olan. “236. | 215" ):6a9e. F207) Sead. | Foro! | 6 2G 
| §221, , 222) | 6223 | 226) ° Ga25 . 6226' | 6227, | +228! ; § 229 


At the end of every week send the completed form 
to the District Program Supervisor. 


AT THE TOP INDICATE: 


1. Date of the last school day of the week. 

a. Month: Blacken the rectangle around the appropriate 
number, 

b. Day: Blacken the appropriate retangle in both rows. 
If the date is 1 through 9, blacken the zero in the 
first row and the appropriate rectangle in the second 
TOW. 

Examples 


aie reeves 


October 4 January 23 


\ 


FOR EACH DAY INDICATE:” 


\ 1. The sequence number of the book you are using by blackening 


\ the appropriate rectangle under one of these series names:° 
\ RRS (Reading Readiness Series) 


PPS (Pre-Primer Series) 
ps Primer Series) 
FRS (First Reader Series) 


2. Whether a test was given. If yes, blacken the "Y" rectangle. 
If no, blacken the "N" rectangle. 
3. Time spent on program in 
a. Initial instruction: Slacken an "I" rectangle under one 
of the time ranges. If no time was spent, do not make 
a mark, 
b. Review: Elacken an "R" rectangle under one of the time 
ranges. If no time was spent, do not make a mark. 


AT THE £ND OF THE WEEK INDICATE: 


1. Last paoe completed in the text that week: Blacken the 
appropriate numbers in the three rows. If the page number 
is less than 10, blacken the zeroes in the top two rows 
and the appropriate number in the bottom row. If the page 
number is between 10 and 99, blacken the zero in the top 
row and the appropriate numbers in the bottom two rows. 


* 
If the class is grouped, follow remainder of the directions, once 
for each croup, under the headings Group 1, Group 2, etc, 
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UTILITY FORM 8867 Petes Meameen totus, OPTICAL SCANWING CURPORATION severe oe ene 
“ 


FILE sgcR OT RECORD NUMB 2485 


TAAARTCCAL!CC ACAABAACISACAACA 
HE ac BARA 


FIle “NUNHER 2 ~ RECORD NUMBER 2466 


“MAABICCAALIC BCABCARCABCABCABA 


Fite FILE NUMBER a —RECOKD: NUMBER 2467 _ 


FILE NUM 1 RECOWG NUMHER_ 2466 
AAABICCRACTC BCASCAn CAST ANCA 
BABA _ pA 


APPENDIX B % 
District Group 
EXAMPLES OF THE INPUT RECORDS School Month 
Teache 
238 ALPHA Character Responses Per R--ord 
pe Relevant Unit 
es i SS. Se = ee ee 1.2.34 5678926 _ 
SWENGTHG., | OO ee cev ey her San SS eae = ts SS SS : = ieee 
4s, - Laozoana 433 Hdodaadag 
pbENGTH _ Ot -- ag - -- ye - = eee ee ar ae 3 eae L 
BA Baba BA Le att 


FILE NUNBER it 


“FILE NUSRER 1 ECORD AUMBER 2491 LENGTH 

SREAT COARSE CG CCatca OC ee 

~~ : * ei x Se een |s cn [ent 
( = _FILe 8 = RECORDORUMBER 2492... WENGTH.. 4405 2 2 oo eee eee De ee eee ee ere 414 vis 
wags CCACCACCACCE Ba ac . BABA BaB oa neha e 
RO os 2 i _{sp2pzne! | | oh ie 
FILE SuteeS 2 _ SECCRD _RUMHER 2493 __ LENGTH We Se eee ee Hee en 2a ge te ag Ca gts 2 
BLEAICCRNCAC CCaCDaCHACRA : BA - Faagal| | ‘ 
a ; us a wee ee : | | abepere | ep7 

“FILE UM RES sty ee RECORD AUMRER 2494 LENGTH _ 44 ga Ty i Tl 

ees: CCACCACCACCACBA ? SS SSS FE Se See ee Re o 
BCBC ee 2 ao a oes 2 4 8p2p2p2) \9 6 6000, _ 
FILE NUMBER 1 RECOA R 49 ENG 4 7 eee ari 
AAABTCOACaRC Sage ie URE EE PEE SU on peng See ea ee 
see: eee _CcepecA C _ 78 B BB a 8020207. , W3e01990ddqd _ 
FILE NUMRES 4 RECORD AUMAER 2496 _ LENGTH 44 E : TLE Oa e: 
AAAALTESA GAC ACHARRACCACHACCBa ~~ BapaGapea  —<“CtSS— SS Cae ee ON Ve = ee [RES Si eS mea ol 

2 fe Ate Pe ee Se . sop gees dae _ _| Ainapies . 403nsnddnegqd _ 

SPIRE WUNGES! Sd. — RECORD INUMUER. 2497 “LENGTH. S408 a ee ee eS Sigs: Perera a epee ae 
AAAATERAJ9AC ACTHACAACAACAACA RAHAGRAKDKLe SoS Se eS oS eT rae ee 5 To te 


, en4oiod axrinvoqggoos _ 


& & : & ; 


APPENDIX C 
District Month 
EXAMPLES OF THE OUTPUT RECORDS .|School lias 
Teache Group 
238 ALPHA Character Responses Per Record 
las Relevant Unit 
1 2:3,45'6 FRIAR 
FILE NUMBER 1 RECORD NUMBER-—60 LENGTH 46 nee 
‘BaaspepsBs0c “JECIFBIFCIGCIFO- Ba 
Ba A 
FILE “aoRBpER a ——EEon>_nungeR”* “ei ENC TE _ 44 ay: aes tele Sesh a ew = 
BaaBOBB4BCAC JCCUFBVEBUGCUGBBC BaBc Ga Babe ac Ba : : 
FILE We or LE 2 Le 2 ] 5 
BAAROBBABCHC JGCUNCJEC ac 5 | 
ec 30310 276 
FILE NUMBER Wee NUMBER | __03_ LENGTH = 440 = 
‘Baaadetaicec” ateaoba aa08a0G- 68 ac Be6caC 


R T 44 
tikipscenor a3 a0 wt ti Eatin i. ee SENES — FR 8 an Hn 


NUMBER 865 ENGT a4 
bhaiobensae ab “aboresie® tea St ~ LENGTH _ OS _ 


BC fe 
ORO NUMBER _ WeTH 
Tee Be oO IE Sn eee 
FILe-Murpe —_ Bc se aE ac 
R CORD NUMBER 67 LENGTH 446 _ Fee 
Tae ‘ cBcip 4 8=€©»6Ba — Woe Tinie Se BET, oc ek ee ee Te ee eae, fe te me Boe 
ec a0 a0 OD aa : 
FILE NUMBER RECORD NUMBER 68 8 8LENCTH 8 644000 
BaaadecaJoac “ue BGBBCBBCEBCA 7 Base Ba 
FILE NUMBER 1 RECORD NUMBER 69 LENGTH ry j 
BAAADBCAKANC UFBEFERGEBF BCB Me ger one OSs tate ee be ee eee ee 
Ba : E 
Fite ‘NUMBER 2 D NUMBER 0 WeTH ; 
paniGpeakaee B “sereheec “cha 0c BAtt—~S == BABA: o- SOC ee ce ey a Ty ee aes 
FI eR 2 : 7 : ac 6¢ T 
—_NUMB ORD AUMAER t ENCTH 
hakebecaxeec c ‘stcic Ceecee a ee ae BEDCIN_ — 0 — -) as a :: | ofaiameedees| -|.|.): piaeainces oe 
BE BC 80D [14 ac 8 o 
FILE NUMBER RECORD NUMRER_ 72 LENGTH 44 


bastoncancee Cexemett: ee Blt ee ese ae ee ee ay ag 8 SRA a, 5 


